home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / TURBOPASCAL WIN / OWLDEMOS.PAK / OLESERVR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-06-08  |  1KB  |  46 lines
  1. {***************************************************}
  2. {                                                   }
  3. {   Turbo Pascal for Windows                        }
  4. {   Windows 3.1 OLE Server Demonstration Program    }
  5. {               Main Program Unit                   }
  6. {                                                   }
  7. {   Copyright (c) 1992 by Borland International     }
  8. {                                                   }
  9. {***************************************************}
  10.  
  11. program OleSrvApp;
  12.  
  13. { This program demonstrates the development of an OLE
  14.   Server application.  It supports a simple 'document'
  15.   consisting of a shape (selectable as either a rectangle,
  16.   circle, or triangle) which can be pasted or linked into
  17.   an OLE Client (such as the OLE Client demo program, or
  18.   Word for Windows).
  19. }
  20.  
  21. { NOTE: The order in which units appear in this statement is
  22.   significant: some units require this compilation order.
  23. }
  24.  
  25. { Note: To compile the OLE Server demo, set Compile|Primary File to OLESERVR.PAS
  26. }
  27.  
  28. uses Strings, WinTypes, WinProcs, WObjects, Ole, CommDlg, ShellAPI, BWCC,
  29.      OleTypes, OleObj, Server, OleApp;
  30.  
  31. {$R OLESERVR.RES}
  32.  
  33. { Global Variables }
  34.  
  35. var
  36.   App: TOleApp;
  37.  
  38. { Main program }
  39.  
  40. begin
  41.   App.Init(DemoTitle);
  42.   App.Run;
  43.   App.Done;
  44. end.
  45.  
  46.